home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / G-RADS.UNT < prev    next >
Text File  |  1996-07-04  |  3KB  |  68 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   G-RADS  .UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $if 1
  15.   $CODE SEG        "DAS_NB03"
  16.   $EVENT            OFF
  17.   $ERROR ALL        OFF
  18.   $OPTIMIZE         SIZE
  19.   $OPTION GOSUB     OFF
  20.   $OPTION CNTLBREAK OFF
  21.   $OPTION SIGNED    OFF
  22.   $DEBUG  MAP       OFF
  23.   $DEBUG  PATH      OFF
  24.   $DEBUG  UNIT      OFF
  25.   $COMPILE          UNIT
  26. $endif
  27.  
  28.   EXTERNAL pPi#
  29.  
  30. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  31. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  32. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  33. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  34.  
  35. FUNCTION fDegrees#( BYVAL Xaxis#, BYVAL X#, BYVAL Yaxis#, BYVAL Y# ) LOCAL PUBLIC
  36.  
  37.   FUNCTION = fRadians#( Xaxis#, X#, Yaxis#, Y# ) * ( 180 / pPi# )
  38.  
  39. END FUNCTION
  40.  
  41. ' ───────────────────────────────────────────────────────────────────────────
  42.  
  43. FUNCTION fRadians#( BYVAL Xaxis#, BYVAL X#, BYVAL Yaxis#, BYVAL Y# ) LOCAL PUBLIC
  44.  
  45.   IF Xaxis# > 0 THEN X# = ( X# - Xaxis# )
  46.   IF Yaxis# > 0 THEN Y# = ( Yaxis# - Y# )
  47.   SELECT CASE Y#
  48.     CASE > 0
  49.       SELECT CASE X#
  50.         CASE > 0  : FUNCTION = ATN( Y# / X# )             ' +X, +Y
  51.         CASE < 0  : FUNCTION = pPi# + ATN( Y# / X# )      ' -X, +Y
  52.         CASE ELSE : FUNCTION = ( pPi# / 2 )               '  0, +Y
  53.       END SELECT
  54.     CASE < 0
  55.       SELECT CASE X#
  56.         CASE > 0  : FUNCTION = 2 * pPi# + ATN( Y# / X# )  ' +X, -Y
  57.         CASE < 0  : FUNCTION = pPi# + ATN( Y# / X# )      ' -X, -Y
  58.         CASE ELSE : FUNCTION = 3 * ( pPi# / 2 )           '  0, -Y
  59.       END SELECT
  60.     CASE ELSE
  61.       IF X# < 0 THEN FUNCTION = pPi#                      ' -X,  0
  62.   END SELECT
  63.  
  64. END FUNCTION
  65.  
  66.  
  67.  
  68.